#! /usr/bin/perl -wl
#------------------------------------------------
# Author:    vj
# Created:   Sun Jun  9 22:30:35 IST 2013
# File Name: squares
# USAGE: 
#       squares 
# 
# 
#------------------------------------------------
my $ipSize = 2;
my $opSize = 1;
my $n = 4;
my $x = $ARGV[0];

print "$ipSize $opSize";
print $n;

print "$_ $_ ", $_ * $_ foreach ($x .. $x + $n - 1);
